unit UDAMOBasico;

interface

uses SysUtils, Classes, DB, Uni, MemDS, DBAccess;

type
  TDAMOBasico = class(TDataModule)
    UNQY: TUniQuery;
  private
    { Private declarations }
    FZConnection: TUniConnection;
  protected
    { Protected declarations }
    procedure SetZConnection(const Value: TUniConnection); virtual;
  public
    { Public declarations }
    property ZConnection: TUniConnection read FZConnection write SetZConnection;
  end;

implementation

{$R *.dfm}

{ TDAMOBasico }

procedure TDAMOBasico.SetZConnection(const Value: TUniConnection);
begin
  FZConnection := Value;
  UNQY.Connection := FZConnection;
end;

end.
